with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

procedure Intent0 is
  Total: Natural := 0;
  Num_Voltes: Positive;
  type Tflag is (Up, Down);
  type Ttorn is (Tt1, Tt2);
begin
  Put("Entra el nombre de voltes: ");
  Get(Num_Voltes);
  declare
    task T1;
    task T2;

    task body T1 is
    begin
      for I in 1..Num_Voltes loop
        Total := Total + 1;
--        Put('1');
      end loop;
    end T1;

    task body T2 is
    begin
      for I in 1..Num_Voltes loop
        Total := Total + 1;
--        Put('2');
      end loop;
    end T2;
  begin
    null;
  end;
  Put("Total teoric: "); Put(2 * Num_Voltes); New_Line;
  Put("Total real:   "); Put(Total); New_Line;
end Intent0;
